home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Utilities / MathScript / MSExtras / QuickCode / QC / QC_GetMxN.gc next >
Encoding:
MathScript QuickCode script  |  1997-01-25  |  520 b   |  38 lines
  1. G4C
  2.  
  3. ;
  4. ; QC_GetMxN V1.0
  5. ;
  6. ; Small GUI to get M and N sizes for the special
  7. ; case of the MxN matrix.
  8. ;
  9. ; Chris Coulson
  10. ;
  11. ; History:
  12. ;
  13. ; 18.01.97 - Version 1.0
  14. ;
  15.  
  16. WinBig 0 0 200 24 "Select matrix size"
  17. WinOnWin quickcode.gc 0 0
  18. WinType 10000000
  19.  
  20. NoFontSense
  21. UseTopaz
  22.  
  23. xOnClose
  24.     SendRexx quickcode "BX $m $n"
  25.     GuiClose qc_getmxn.gc
  26.     
  27. xOnOpen
  28.     m = 3
  29.     n = 3
  30.     Update qc_getmxn.gc 1 $m
  31.     Update qc_getmxn.gc 2 $n
  32.     
  33.     
  34. xHSlider 70 0 110 12 "Columns" m 1 9 3 "%1ld"
  35.     GadID 1
  36. xHSlider 70 12 110 12 "Rows" n 1 9 3 "%1ld"
  37.     GadID 2
  38.